From: Chong Yidong Date: Tue, 13 Jul 2010 17:02:27 +0000 (-0400) Subject: * lisp/frame.el (make-frame): Fix typo in 2010-06-30 change (Bug#6625). X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~7235 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a963030b9d799af2730dec6e27283102ba88de0e;p=emacs.git * lisp/frame.el (make-frame): Fix typo in 2010-06-30 change (Bug#6625). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8d8961dfed2..2a20bbba5c6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-07-13 Chong Yidong + + * frame.el (make-frame): Fix typo in 2010-06-30 change (Bug#6625). + 2010-07-13 Adrian Robert * term/ns-win.el: Bind M-~ to 'ns-prev-frame (due to Matthew diff --git a/lisp/frame.el b/lisp/frame.el index 10abed1ff19..534d6a2b4e7 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -736,11 +736,11 @@ the new frame according to its own rules." (error "Don't know how to create a frame on window system %s" w)) ;; Add parameters from `window-system-default-frame-alist'. (dolist (p (cdr (assq w window-system-default-frame-alist))) - (unless (memq (car p) params) + (unless (assq (car p) params) (push p params))) ;; Add parameters from `default-frame-alist'. (dolist (p default-frame-alist) - (unless (memq (car p) params) + (unless (assq (car p) params) (push p params))) ;; Now make the frame. (run-hooks 'before-make-frame-hook)